function [Mom,Result]=SubFun_Param2Mom(Info,Input)
%% Setup
ParamInput  =   Info.ParamInput;

for ii=1:Info.Dim
    ParamInput.(Info.ParamList{ii})     =   Input(ii);
end
PP          =   Setup_PP(ParamInput);
PP.InfoPrint=   1;
Result      =   struct('ParamVec',Input,'PP',PP,'Flag',1);
%% Solve the Steady State
PSI_0       =   1;
DiscFactor_0=   0.02;

try
    SS              =   SteadyState_Solver(PP,PSI_0,DiscFactor_0);
catch
    SS              =   [];
    Result.Flag     =   0;
end
Result.SS   =   SS;
[Mom,Result.MPC,Result.WI] ...
            =   SubFun_SS2Mom(PP,SS);
